unit fWarehouseinAnalyse;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, fBaseAnalyse, cxGraphics, cxControls, cxLookAndFeels,
  cxLookAndFeelPainters, cxStyles, dxSkinsCore, dxSkinCaramel,
  dxSkinOffice2010Silver, dxSkinSeven, dxSkinscxPCPainter, cxGrid, StdCtrls,
  Mask, RzEdit, RzButton, RzLabel, ExtCtrls, cxCustomData, cxFilter, cxData,
  cxDataStorage, cxEdit, DB, cxDBData, uDAScriptingProvider, uDADataTable,
  uDAMemDataTable, uDAInterfaces, uDARemoteDataAdapter, cxGridLevel, cxClasses,
  cxGridCustomView, cxGridCustomTableView, cxGridTableView,
  cxGridBandedTableView, cxGridDBBandedTableView, RzRadChk, cxCurrencyEdit;

type
  TfmWarehouseinAnalyse = class(TfmBaseAnalyse)
    tvBrowserColumn1: TcxGridDBBandedColumn;
    tvBrowserColumn2: TcxGridDBBandedColumn;
    tvBrowserColumn3: TcxGridDBBandedColumn;
    tvBrowserColumn4: TcxGridDBBandedColumn;
    tvBrowserColumn5: TcxGridDBBandedColumn;
    tvBrowserColumn6: TcxGridDBBandedColumn;
    tvBrowserColumn7: TcxGridDBBandedColumn;
    tvBrowserColumn9: TcxGridDBBandedColumn;
    tvBrowserColumn10: TcxGridDBBandedColumn;
    tvBrowserColumn11: TcxGridDBBandedColumn;
    tvBrowserColumn12: TcxGridDBBandedColumn;
    tvBrowserColumn8: TcxGridDBBandedColumn;
    tvBrowserColumn13: TcxGridDBBandedColumn;
    tvBrowserColumn14: TcxGridDBBandedColumn;
    procedure btnGoClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmWarehouseinAnalyse: TfmWarehouseinAnalyse;

implementation

{$R *.dfm}

procedure TfmWarehouseinAnalyse.btnGoClick(Sender: TObject);
begin
  FSql := 'select dwhi_fno,dwhi_fname,dwhi_no,dwhi_date,dwii_productno,dwhi_whname,dwii_productrealno,dwii_productname,dwhi_projectno,dwhi_osimpname,dwhi_no,dwhi_date,dwii_qty,dwii_buyprice,dwii_buyamt,dwhi_buymcode'+' from d_warehousein,d_warehouseinitem where dwii_whiid=dwhi_id and dwhi_date>='+QuotedStr(edtStart.Text)+ ' and dwhi_date<='+ QuotedStr(edtEnd.Text)+ ' order by dwhi_osimpname,dwhi_fname,dwhi_date';
  inherited;

end;

end.
